Espero que te sirve...
Tendrias que depurarlo un poco mas
Código vb:
Ver originalPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Text1.SelStart > 0 Then
If Mid(Text1, Text1.SelStart, 1) = ";" Then
KeyAscii = 0
End If
End If
End If
End Sub