At its simplest:
ActiveDocument.Range.Characters.First.Delete
However, it might be better to implement a loop to delete all characters before the first 'valid' character. For example:
Code:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
Do While .Characters.First Like "[" & vbTab & "-" & vbCr & "]"
.Characters.First.Delete
Loop
End With
Application.ScreenUpdating = True
End Sub