Alexandre obrigado pelo apoio, mas já consegui resolver, ficou assim:
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'informando o nome do alarme ativo usando os dados da cel B1, ao pasar mouse no icone "?"
Select Case Range("B1")
'Se os dados forem maiores que 0, executa msgbox "nome do alarme" + conteudo da celula B1 na mesma msgbox.
Case Is > "0": MsgBox "Nome do Alarme: ( " + Range("b1") & " )", vbInformation, "Alarme Atualmente Ativo"
'Se os dados forem iguais ou menores que 0, executa msgbox "Nenhum alarme definido".
Case Is <= "0": MsgBox "Nenhum Alarme Definido!", vbInformation, "Alarme Atualmente Ativo"
End Select
End Sub