I haven't figured this out yet:
the original mess:
Dim numEntered As String
Dim numWords As Integer
Dim acronym As String
Dim wordEntered As String
Dim letter As String
Dim fullWord As String
numEntered = InputBox("Number of words", "Enter the number of words in the acronym")
numWords = Val(numEntered)
fullWord = Nothing
For count As Integer = 1 To numWords
wordEntered = InputBox("Word", "Enter the word.")
wordEntered.ToUpper()
letter = wordEntered.Chars(0)
letter = fullWord.Chars(count)
acronym = Nothing
acronym = String.Concat(acronym, letter)
Next count
No comments:
Post a Comment