Msgbox com função SE

Boa noite,
Em uma userform coloquei em um rotulo o evento (MouseMove)
sendo assim quando passo o mouse em cima do rotulo executa minha macro,
no caso uma msgbox, e o conteudo dessa msgbox é igual o de uma celula,
utilizando (MsgBox Range("B1")).
Gostaria de saber como fazer para a
msgbox ficar condicional, como na formula SE, ou seja se o valo da
celula estiver X executa msgbox A , mas "SE" o valor for Y executa
msgbox B.

Mais ou menos como o exemplo abaixo, mas não com horas e sim com o valor que eu determinar:

Select Case Time
Case Is < TimeValue("12:00:00"): MsgBox "Bom Dia " & Application.UserName & " !"
Case Is >= TimeValue("19:00:00"): MsgBox "Boa Noite " & Application.UserName & " !"
End Select

Ou seja se for < que 12hs msgbox Bom dia, se for >ou= 19hs msgbox Boa noite.

Boa noite!!!

Tente substituir por "Range"....

Exemplo....

Citação :

Select Case Time
Case Is = Range("B1").value="x": MsgBox "Bom Dia " & Application.UserName & " !"
Case Is = Range("B1").value="x": MsgBox "Boa Noite " & Application.UserName & " !"
End Select

Att...

Boa noite Alexandre,

Não deu certo, mas quero resaltar que aquele exemplo do Case Time é só para dar uma ideia do que quero. Na verdade quero que se na celula B1 estiver em branco apareça a msgbox A, se contiver qualquer valor apareça a msgbox B. Ou seja se(B1 < 0; msgbox A), se (B1 >=0; msgbox B). Tipo a formula SE mas pelo VBA.

Bom dia!!!!

Como você está usando

Citação :

evento (MouseMove)

Preciso que me mande seu código por inteiro....


Att...

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

Boa tarde!!

Meus parabéns, e obrigado por postar sua solução e pelo retorno ...abraços!!

Att...