[VB] Replace Teks Di TextBox

Ada kasus seperti ini:

Dul Kirno adalah seseorang yang sedang mempelajari VB, suatu ketika Dul Kirno ingin
membuat Source Code yang fungsinya adalah mencari suatu text dalam TextBox lalu mengganti
text yang dicari tersebut dengan text lain. Maka Dul Kirno mencoba mengganti text
dalam textbox tersebut dengan Fungsi Mid$, tetapi Dul Kirno bukannya mendapatkan
source code tersebut berhasil malah Error lah yang Dul Kirno dapat.
Lalu Dur Kirno menutak-atik property SelStart, SelLength, SelText pada obyek textbox nya.
Akhirnya dengan penuh keceriaan, Dul Kirno berasil memuat source code yang dia harapkan.
Beginilah dia melakukannya:

Deklarasi:
1 Form
1 TextBox
1 Command Button

Source Code:

Private Sub Command1_Click()
  Dim textToFind, textReplace As String
  textToFind = "Kroya": textReplace = "Crowja"
  If InStr(Text1.Text, textToFind) > 0 Then
      Text1.SelStart = InStr(Text1.Text, textToFind) - 1
      Text1.SelLength = Len(textToFind)
      Text1.SelText = textReplace
  Else
      MsgBox "String tak ditemukan"
  End If
End Sub

Jangan Lupa Komentar Yaa..