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