' IsFourLetterWord Example

' Write a function that returns True if length of
' input string is four letters.

Imports System.Console
Public Module Module1

    Public Sub Main()
        WriteLine(IsFourLetterWord("apple"))
        WriteLine(IsFourLetterWord("pear"))
        WriteLine(IsFourLetterWord("fig"))
        WriteLine(IsFourLetterWord("    "))
        WriteLine(IsFourLetterWord("   "))
        ReadLine()
    End Sub

    Public Function IsFourLetterWord(ByVal s As String) _
        As Boolean

        If s.Length = 4 Then
            Return True
        Else
            Return False
        End If
    End Function

End Module