Foro de elhacker.net

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

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