Mid function

Returns a substring within a string.

Sub Main()
 
Dim LWord, Msg, RWord, SpcPos, UsrInp   ' Declare variables.
 
   Msg = "Enter two words separated by a space."
   UsrInp = InputBox(Msg)   ' Get user input.
   print UsrInp
   SpcPos = InStr(1, UsrInp, " ")   ' Find space.
   If SpcPos Then
       LWord = Left(UsrInp, SpcPos - 1)   ' Get left word.
       print "LWord: ";  LWord
       RWord = Right(UsrInp, Len(UsrInp) - SpcPos)   ' Get right word.
       Msg = "The first word you entered is " & LWord 
       Msg = Msg & "." & " The second word is "
       Msg = "The first word you entered is <" & LWord & ">"
       Msg = Msg & RWord & "." 
   Else
       Msg = "You didn't enter two words."
   End If
   MsgBox Msg   ' Display message.
   MidTest = Mid("Mid Word Test", 4, 5)
   Print MidTest
End Sub