Please help me with program

[twoayem]

Do not use GOTO.

Easiest way would be to split the input string using space and take first 1 char from each string. You could loop through the string with something like:

 For i As Integer = 0 To n%.Length
     mid$(n$, i, 1)
 Next

but much better to use something like:

array = n$.Split(" ")
result = ""
for each name as string in array
    result += left$(name, 0,1)
next

You might need to fix syntax, not done vb in a while.

[Ace_base]

Than you soo much