I combined your solution with my own and set the default value of the text box to "GetUserName ()" and it works
Public Function GetUserName() As String
GetUserName = StrConv(Replace(Environ("username"), ".", " "), 3)
End Function
Thank you very much for your response!
You saved my day!