Cara Menghapus String

Seperti janji saya, saya akan memberikan pemrograman vb untuk menghapus string didalam sebuah string. cara ini saya temukan ketika ingin membuat anti vbs. script ini berguna untuk membersihkan /menghapus script vbs yang berbahaya didalam file vbs tersebut. tanpa banyak tanya, ini dia kodenya

Option Explicit

Dim kolomke As Integer

Dim panjang As Integer

Dim kurang As Integer

Dim belakang
As String

Dim jumBel As Integer ' jumbel adalah jumlah string dibelakang

Dim jumbelSemua As Integer

Private Sub Command1_Click()

On Error Resume Next

panjang = Len(Text1)

kolomke = InStr(1, Text1, Text3, vbTextCompare) ' instr berfungsi mencari posisi kolom suatu string tertentu didalam string

If kolomke <> 0 Then

belakang = Left(Text1, (kolomke - 1)) ' text 1 tempat string dicari

jumBel = Len(belakang)

jumbelSemua = jumBel + Len(Text3) ' text 2 berisi string yang dicari

kurang = panjang - jumbelSemua

Text2 = belakang & Right(Text1, kurang) ' text 2 berisi result

End If

End Sub

 kalau metode ini disebut metode perpotongan, boleh, tapi tanpa 'split'
metode ini menggunakan tehnik mendapatkan string lain yang ada di belakang (<-) string yang dicari dan juga mendapatkan string yang ada didepan (->) string yang dicari. dan string yang dicari tidak dimasukkan ke dalam result. mudahkan, caranya, jangan lupa komentar ya ?