Exit Sub if field is blank?

[McLaren]

Anyone know why this isn't working?

Private Sub Program___Click()
If Program__ = "" Then
Exit Sub
ElseIf Program__ = "CALC" Then
LinkName = "\\fileserv\manufacturing\Fadal\Brad\Programs\Calculators.vbs"
Else
LinkName = "\\fileserv\manufacturing\Fadal\" & Program__ & ".tap"
End If
Application.FollowHyperlink LinkName, , True, False
End Sub

What I am hoping for is if the Column "Program#" contains the word "CALC" to open the .vbs script(works fine), if it contains anything else to open the relevant .tap file(works fine), and if it's empty to do nothing(errors out trying to open 'nothing' I guess).

 

[McLaren]

Got it.

Private Sub Command3_Click()
On Error Resume Next
If Program__ = "CALC" Then
LinkName = "\\fileserv\manufacturing\Fadal\Brad\Programs\Calculators.vbs"
Else
LinkName = "\\fileserv\manufacturing\Fadal\" & Program__ & ".tap"
End If
Application.FollowHyperlink LinkName, , True, False
End Sub