Function SplitString(strStart As String, booSide As Boolean) As Variant
'Function to split a string composed of numeric and non-numeric characters
'booSide determines if the return value will be the numeric side (left, true) or the
'non-numeric side (right, false).

Dim strWorking as String   'Working variable
Dim strTemp as String    'Holder for return value

strWorking = strStart

If booSide Then

   'Parse strWorking from the left until you run out of numeric characters
   Do While IsNumeric(Left(strWorking, 1))

      'Add the character to the return variable
      strTemp = strTemp & Left(strWorking, 1)

      'Lop off that character from strWorking
      strWorking = Right(strWorking, Len(strWorking)-1)

   Loop

Else

   'Parse strWorking from the right until you reach numeric characters
   Do Until IsNumeric(Right(strWorking, 1))

      'Add the character to the return variable
      strTemp = Right(strWorking, 1) & strTemp

      'Lop that character from strWorking
      strWorking = Left(strWorking, Len(strWorking)-1)

   Loop

End If

'Populate the function with the return value

SplitString = IIf(booSide, CLng(strTemp), strTemp)

End Function