Excel - Extraer palabras de un texto

Sub Macro3()

Dim posi, posf, i As Integer

Dim texto, cadena As String

posi = 1

posf = 1

texto = Range("A1").Value

For i = 1 To Len(texto)

    If Mid(texto, i, 1) = "#" Then

        posi = i

    Else

        If Mid(texto, i, 1) = " " Then

            posf = i

            cadena = Mid(texto, posi, posf - posi)

                If Mid(cadena, 1, 1) = "#" Then

                    MsgBox Mid(texto, posi, posf - posi)

                    posi = posf

                    posf = 0

                End If

        End If

    End If

Next i

End Sub