You could also shrink that down to a single case statement.
Select Case X
Case 1 To 3: Console.WriteLine("hit")
End Select
Loading User Information from Channel 9
Something went wrong getting user information from Channel 9
Loading User Information from MSDN
Something went wrong getting user information from MSDN
Loading Visual Studio Achievements
Something went wrong getting the Visual Studio Achievements
You could also shrink that down to a single case statement.
Select Case X
Case 1 To 3: Console.WriteLine("hit")
End Select