In that case, since he has to display things as the keys keys are pressed, one could try:
Private Sub txtName_KeyUp(KeyCode As Integer, Shift As Integer)
Dim pos As Integer
pos = txtName.SelStart
txtName.Text = StrConv(txtName.Text, vbProperCase)
txtName.SelStart = pos
End Sub...