Public Function InStr(ByVal String1 As String, ByVal String2 As String, Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod = Binary) As Integer
     Member of Microsoft.VisualBasic.Strings
Summary:

การแทนที่คำ ด้วย ฟังก์ชัน Replace

1. InStr() ค้นหาคำที่ต้องการ


Syntax
InStr(ByVal String1 As String, ByVal String2 As String)
InStrRev(ByVal String1 As String, ByVal String2 As String)

Example

Dim test_word As String
test_word = "I Love Thailand"
 
' need "h"

Dim location As Integer = InStr(test_word, "h")          ' 9
Dim location2 As Integer = InStrRev(test_word, "h")   ' 9