Imports System
Public Class Test
Public Shared Sub Main()
dim kusai as string = "kusai"& vbNewLine & "ahmad"
dim sarray() as string = kusai.Split(vbNewLine)
Console.WriteLine(sarray(0))
Console.WriteLine(sarray(1))
if sarray(1) = "ahmad" then
Console.WriteLine("اه")
end if
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCSAgICAgZGltIGt1c2FpIGFzIHN0cmluZyA9ICJrdXNhaSImIHZiTmV3TGluZSAmICJhaG1hZCIKICAgICAgICBkaW0gc2FycmF5KCkgYXMgc3RyaW5nID0gIGt1c2FpLlNwbGl0KHZiTmV3TGluZSkKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKHNhcnJheSgwKSkKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKHNhcnJheSgxKSkKICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgaWYgc2FycmF5KDEpID0gImFobWFkIiB0aGVuCiAgICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi2KfZhyIpCiAgICAgICAgICAgICAgICBlbmQgaWYKCUVuZCBTdWIKRW5kIENsYXNz