VBA %username% macro to run different code

[Hyflex]

I can only think of an example in Batch for what I need... but I need it in a VBA Macro

IF /I "%username%"=="Server" GOTO ONEI
IF /I "%username%"=="MrExcel" GOTO TWOI
IF /I "%username%"=="Hyflex" GOTO THREEI

:ONEI
ECHO ---------------------------------------------
ECHO Server PC
ECHO ---------------------------------------------
GOTO END

:TWOI
ECHO ---------------------------------------------
ECHO MrExcels PC
ECHO ---------------------------------------------
GOTO END

:THREEI
ECHO ---------------------------------------------
ECHO Hyflex's PC
ECHO ---------------------------------------------

:End

Any help would be greatly appreciated

 

[Von Pookie]

You basically use the same sort of setup. In this particular example, I used a Select Case statement instead of nested If/Then:

Sub asdf()
Dim Uname As String
Uname = Application.UserName
Select Case Uname
    Case Is = "Server"
        'code for Server goes here
    Case Is = "MrExcel"
        'code for MrExcel goes here
    Case Is = "Hyflex"
        'code for Hyflex goes here
End Select
End Sub