Boa tarde, Srs.

Encontrei um código na internet que realizar a alteração do registro em Listbox, faz a função de Up e Down do registro selecionado.
A minha dúvida é a seguinte, como faço para inserir mensagem de alerta.

Exemplo
- Seleciono o segundo registro e vou no botão Up (no arquivo anexo seta para cima) clico uma vez que registro vai para o primeiro registro se eu clicar novamente não irá subir por que já se encontra na primeira posição, a mensagem entraria nesse momento quando o registro assumir primeira posição e clicar novamente na opção de subir ele retornasse a mensagem "Não é possível ordenar registro para cima" e vice versa para baixo.

Muda Registro para Cima

Private Sub MoveUp()

Dim ray
Dim Num
Dim ac As Integer
Dim n As Integer
Dim Temp As String

ray = ListBox2.List

    If Me.ListBox2.ListCount > 0 Then

        For n = 0 To ListBox2.ListCount - 1
            If ListBox2.Selected(n) Then Num = n: Exit For
        Next n
        
        For n = 0 To UBound(ray)
            If Num > 0 Then
                If n = Num Then
                    For ac = 0 To ListBox2.ColumnCount - 1
                        Temp = ray(n, ac)
                        ray(n, ac) = ray(n - 1, ac)
                        ray(n - 1, ac) = Temp
                    Next ac
                End If
             End If
        Next n
    
        ListBox2.List = ray
    
    Else
        MsgBox "Sem registro para organizar", vbInformation, "Sem estação"
    End If

End Sub

Muda Registro para Baixo

Private Sub MoveDown()

Dim ray
Dim Num
Dim ac As Integer
Dim n As Integer
Dim Temp As String

ray = ListBox2.List

    If Me.ListBox2.ListCount > 0 Then

        For n = 0 To ListBox2.ListCount - 1
            If ListBox2.Selected(n) Then Num = n: Exit For
        Next n
        
        For n = 0 To UBound(ray)
            If Not Num >= UBound(ray, 1) Then
                If n = Num Then
                    For ac = 0 To ListBox2.ColumnCount - 1
                        Temp = ray(n, ac)
                        ray(n, ac) = ray(n + 1, ac)
                        ray(n + 1, ac) = Temp
                    Next ac
                End If
             End If
        Next n
    
        ListBox2.List = ray
    
    Else
        MsgBox "Sem registro para organizar", vbInformation, "Sem estação"
    End If

End Sub

Gostaria de uma ajuda dos senhores.