Dim As String text = "I am a text"
If Right(text, 4) = "text" Then
    Print "'" + text + "' ends with 'text'"
End If

Dim As Integer i = Instr(text, "am")
text = Left(text, i - 1) + "was" + Mid(text, i + 2)
Print "replace 'am' with 'was' = " + text
Sleep