Encontrar una palabra de un texto

[elultimo]

tengo una duda lo que quiero es como sacar una palabra de un texto por ejemplo

tengo este texto

bblalaskdjasdla
jasdhasdjhlas
akdjshalsdhj
#hola#jahs
;ajdhsahdasds

bien como puedo hacerle para que solo imprima lo que esta en medio de los # ocea hola

si me pueden ayudar graias

[Mad Antrax]

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Palabras As String
    Dim Buffer() As String
   
    Palabras = "sadfljkhsadflj#HOLA#khasdfljhasdfljkh"
    Buffer = Split(Palabras, "#")
   
    MsgBox Buffer(1)
End Sub