convertir las primeras letras en mayusculas en un textbox

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As......
If e.KeyChar = ChrW(13) Then
Me.TextBox2.Text = StrConv(Me.TextBox2.Text, VbStrConv.ProperCase)
End If
End Sub