Try this
Sub test()
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For RowCount = 1 To LastRow
mystr = Range("B" & RowCount)
myarray = Split(mystr, " ")
FirstNum = myarray(0)
SecondNum = myarray(2)
SecondNum = Mid(SecondNum, 2)
SecondNum = Val(SecondNum)
Range("B" & RowCount) = FirstNum
Range("H" & RowCount) = SecondNum
Next RowCount
End Sub
jdweng