Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() As String
Dim lLen As Long
lLen = 255
UserName = String$(lLen - 1, 0)
If apiGetUserName(UserName, lLen) > 0 Then
UserName = Left$(UserName, lLen - 1)
Else
UserName = vbNullString
End If
End Function