Работа со строками - VB (62605)

Private Function ccProperCase(MySourceControl As Control)
On Error GoTo ErrH
Dim strString As String
strString = MySourceControl.Text
If IsNull(strString) Then Exit Function
strString = StrConv(strString, vbProperCase)
MySourceControl.SelStart = Len(strString)
MySourceControl.Text = strString
Exit Function
ErrH:
MsgBox "Error at ccProperCase:::- " & Err.Number & " - " & Err.Description, vbCritical
Exit Function
End Function
 
Private Sub Text1_Change()
Call ccProperCase(Text1)
End Sub
 
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Text3.Text, Text2.Text)
End Sub

Private Sub Form_Load()
Text2.Text = ""
Text3.Text = ""
End Sub