Sorry again guys, I think I found some solution, but if anyone have an optimal way to do it,I will mark that as solution, now my code work with these
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim tempArray As String()
Dim cbname As String
Dim cbname2 As String
cbname = ComboBox1.Text.ToString
cbname2 = "~~~img" & "(" & cbname & ")"
tempArray = TextBox1.Lines
For counter = 0 To tempArray.Length - 1
If counter = 0 Then
tempArray(0) = cbname2
Else
tempArray(counter) = "~!" & "img(" & tempArray(counter) & ")"
End If
Next
TextBox2.Lines = tempArray
TextBox2.Text &= vbCrLf & "!~" & " ~~~"
End Sub