|
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
|