Dim s$, i&
  s = "34567"
  For i = 2 To Len(s)
    If Not Int(Mid(s, i, 1)) > Int(Mid(s, i - 1, 1)) Then
      Exit For
    End If
  Next
  Debug.Print IIf(i <= Len(s), "nicht aufsteigend", "aufsteigend")

Absteigend solltest du nun selber hinbekommen.

Grüße