Pon un timer en el formulario con las propiedades Enabled=True e Interval=500(o el nº que quieras claro) y agrega este código:
Dim titulo As String
Private Sub Form_Load()
titulo = Me.Caption
Me.Caption = ""
End Sub
Private Sub Timer1_Timer()
If Len(Me.Caption) >= Len(titulo) Then
Me.Caption = ""
Else
Me.Caption = Left$(titulo, Len(Me.Caption) + 1)
End If
End Sub