-
Sub Benutzer()
Dim StringUser, StringText As String
StringUser = Environ(“USERPROFILE”)
StringText = Mid(StringUser, InStrRev(StringUser, “\”) + 1)
MsgBox StringText
End Sub
Sub Benutzer()
Dim StringUser, StringText As String
StringUser = Environ(“USERPROFILE”)
StringText = Mid(StringUser, InStrRev(StringUser, “\”) + 1)
MsgBox StringText
End Sub
Please confirm you want to block this member.
You will no longer be able to:
Please allow a few minutes for this process to complete.