Imports System
Public Class Test
Public Shared Function get_first_n_characters(s As String, n As Integer) As String
If (n >= s.Length) Then
return s
End If
return s.Substring(0, n)
End Function
Public Shared Sub Main()
Dim s As String = "c++ c php vb.net java golang nodejs"
Dim n As Integer = 7
Dim first_n_ch As String = get_first_n_characters(s, n)
Console.Write(first_n_ch)
End Sub
End Class
' run:
'
' c++ c p
'