Imports System
Public Class Test
Public Shared Function lowercase_uppercase_characters_same_order(s As String) As Boolean
Dim len As Integer = s.Length
Dim lower_s As String = ""
Dim upper_s As String = ""
For i As Integer = 0 To len - 1
If (s(i) >= "A" And s(i) <= "Z") Then
upper_s = upper_s + s(i)
End If
If (s(i) >= "a" And s(i) <= "z") Then
lower_s = lower_s + s(i)
End If
Next
return lower_s.ToUpper() = upper_s
End Function
Public Shared Sub Main()
Dim s As String = "vVb.BnNeETt" ' vb.netVB.NET
If (lowercase_uppercase_characters_same_order(s)) Then
Console.Write("Yes")
Else
Console.Write("No")
End If
End Sub
End Class
' run:
'
' Yes
