[RESOLVED] how do i split the word

[kamakshi]

for example i have "journal id expired on - Jul 5/10
i need the part Ju 5/ 10
ie after "-"
how to write in vba code
thanks for your help

[westconn1]

try like

mystr = "journal id expired on - Jul 5/10"
mystr = mid(mystr, instr(mystr, "-" + 1))

[Siddharth Rout]

One more way... Using Split()

Sub Sample()
    Dim StrSample As String, MyArray() As String
    
    StrSample = "journal id expired on - Jul 5/10"
    
    MyArray = Split(StrSample, "-")
    
    MsgBox MyArray(1)
End Sub

[kamakshi]

hi Kool and westconn
both i tried it gives type mismatch

[Siddharth Rout]

Show us the exact code that you are using?

[kamakshi]

Kool
sorry i missed MyArray () as string
thanks it works fine. i need another help
how do compare MyArray with Cell(a)
Cell (a) = 08/15/2010 8:18
thanks

[Siddharth Rout]

I am sorry, I do not understand. Can you explain it a bit more on what you want to do?

[kamakshi]

for example
compareMyarray to Cell (1)
MyArray as string and Cell(1) format as m/d/yyyy h:mm
how do i compare both

[Siddharth Rout]

You mean if Cell say A1 has "7/5/2010 8:18:00" and you want to compare the value stored in the array then do this...

Sub Sample()
    Dim StrSample As String, MyArray() As String, Temp As String
    
    StrSample = "journal id expired on - Jul 5/10"
    
    MyArray = Split(StrSample, "-")
    
    '~~> A1 = 7/5/2010  8:18:00
    Temp = Trim(Format(Range("A1"), "mmm d/yy"))
    
    If Trim(MyArray(1)) = Temp Then
        MsgBox "match found"
    Else
        MsgBox "match not found"
    End If
End Sub