W_o_r_d

[Ricky1]

Ok how would i achieve this. I have a current method but its very long.

Public Sub Fourletters

str = Mid(Word, 1) & "_" & Mid(Word, 2) & "_" & Mid(Word, 3)& "_" & Mid(Word, 4)

list1.additem str

so i have this 16 times for each length of word. Then i have to do

If Len(Word) = 2 Then Call TwoLetters
If Len(Word) = 3 Then Call ThreeLetters

im sure there is a quicker method.

Thanks in advance.

[paralinx]

that's not that long, if you want you can break it up liek this:

Public Sub Fourletters

str = Mid(Word, 1) & _
"_" & Mid(Word, 2) & _
"_" & Mid(Word, 3) & _
"_" & Mid(Word, 4)

list1.additem str

[Pasvorto]

dim newstring as string

for x = 1 to len(oldstring)
newstring = newstring & mid(oldstring,x,1) & " "
next x

[Static]

Private Function Splitword(strWord As String) As String
For x = 1 To Len(strWord)
    If x = Len(strWord) Then
        Splitword = Splitword & Mid(strWord, x, 1)
    Else
        Splitword = Splitword & Mid(strWord, x, 1) & "_"
    End If
Next
 
End Function
Private Sub Form_Load()
List1.AddItem Splitword("TESTING")
 
End Sub

[bpd]

This seems to work:

str = Left$(Word, 1)
For I = 2 To Len(Word)
  str = str & "_" & Mid$(Word, I, 1)
Next

[Mark Gambo]

How about this:

Private Sub Command1_Click()
    MsgBox AddUnderscore("Word")
End Sub
 
Private Function AddUnderscore(strWord As String) As String
Dim strTemp As String
Dim a As Long
 
    For a = 1 To Len(strWord)
        strTemp = strTemp & Mid(strWord, a, 1) & "_"
    Next a
    
    AddUnderscore = Left(strTemp, Len(strTemp) - 1)
End Function

[Mark Gambo]

It would seem that 2:07 PM was a very popular time for this post. Good job by all!

[Static]

ROFL! funny thing is..
none of the suggestions are the same!
everyone had a slightly diff way to do it!

(mine's the best of course... ) j/k!

[Pradeep1210]

The smallest code for this you could ever get for this:

Private Sub Command1_Click()
    Dim s As String
    s = "Word"
    sformat = "@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@"
    MsgBox Format(s, Left(sformat, 2 * Len(s) - 1))
End Sub

Pradeep

[CVMichael]

ROFL! funny thing is..
none of the suggestions are the same!
everyone had a slightly diff way to do it!

(mine's the best of course... ) j/k!

And another way :

Option Explicit
 
Private Sub Form_Load()
    Dim Str As String
    Str = "Word"
    
    Debug.Print Left(Replace(StrConv(Str, vbUnicode), Chr(0), "-"), Len(Str) * 2 - 1)
End Sub

[Static]

very nice!!
(beats mine lol)