Separate The First Part "F-001" To A Different Column?

I have the following worksheet:

Quote:

SEP138 F-001-13, 8kV
SEP138 F-003-13, 8kV
SEP138 F-004-13, 8kV

[code]....

I wonder if anyone knows a macro developed in Visual Basic to separate the first part "F-001" to a different column
example:

Column A = F001
Column B = Sep138-13, 8kV

The spreadsheet is quite wide, going up to about F-220 I could only get to it:

StringElement Function (str As String, chr As String, ind As Integer)
As Variant Dim arr_str
arr_str = Split (str, chr)
StringElement arr_str = (ind - 1)
end Function

is very simple, just separates into single column and not the entire worksheet?