Try this:
Your fieldname is in this example txtField
In your VBA-code:
Me.txtField.Value = UCase(Mid(Me.txtField.Value, 1, 1)) & Mid(Me.txtField.Value, 2, InStr(1, Me.txtField.Value, " ") - 1) & UCase(Mid(Me.txtField.Value, InStr(1, Me.txtField.Value, " ") + 1, 1)) & Mid(Me.txtField.Value...