string - Substring in VBA

Question

I have multiple strings in different cells like

CO20:  20 YR CONVENTIONAL
FH30:  30 YR FHLMC
FHA31   

I need to get the substring from 1 to till index of ':' or if that is not available till ending(in case of string 3). I need help writing this in VBA.

Answer 1

Shorter:

   Split(stringval,":")(0)