AutoCAD Inventor :: Condition IF For Macro

I trying create simply macro for my work. It is mass rename for *.ipt files and their iProperty.And i need create condition "IF" for this (example 2 files):

4-1903-01 Pachole.ipt  -> iProperties-Summary-Subject = nothing
4-1903-02-01 Dachole 2.ipt  -> iProperties-Summary-Subject = "4-1903-02" (first 9 symbols)

How to do it? Maybe find first symbol "space"

Public Sub UpdateDocs()'JDK 2013' Include REF to Microsoft Scripting Runtime Dim oApp As Application Set oApp = ThisApplication Dim oDoc As PartDocument Dim oPropSet As PropertySet Dim FSO As New Scripting.FileSystemObject Dim oFld As Scripting.Folder Dim oFile As Scripting.File Dim Path As String Dim sTitle As String.
[code]....