Imports System
Imports System.Text
Public Class Program
Public Shared Function shiftEachLetterNPlacesUp(ByVal str As String, ByVal N As Integer) As String
Dim result As StringBuilder = New StringBuilder()
For Each ch As Char In str.ToCharArray()
Dim asciiCode As Integer = AscW(ch) + N
If (asciiCode >= 97 AndAlso asciiCode <= 122) OrElse (asciiCode >= 65 AndAlso asciiCode <= 90) Then
result.Append(ChrW(asciiCode))
Else
result.Append(ch)
End If
Next
Return result.ToString()
End Function
Public Shared Sub Main(ByVal args As String())
Console.WriteLine(shiftEachLetterNPlacesUp("8a Fkq", 3))
End Sub
End Class
' run:
'
' 8d Int
'
