You can also check by using the command arguments.
In VB go to ....
Project
Project Properties
Make
Then set the Command Line Arguments: to,say, DEV
In your code check status by ....
If Command() = "DEV" Then
MsgBox "In Dev"
Else
MsgBox "Running Live"
End If