how to display numbers in msgbox

[shiva_B]

Hi,

I'm new to vba. I want to display 15 numbers in msgbox at a time by using newline/space between numbers (i want to use do while loop) . pls assist me.


regards
shiva

 

[Ramesh]

Try this...

Sub DispMsgBox()
    Dim i As Byte
    Dim msgcontent As String
    i = 1
    msgcontent = ""
    While i <= 15
        If Trim(Len(msgcontent)) = 0 Then
            msgcontent = i
        Else
            msgcontent = msgcontent & vbCrLf & i
        End If
        i = i + 1
    Wend
    MsgBox msgcontent, vbInformation
End Sub

The keyword vbCrLf is used for inserting a new line character.. you can replace the same with any seperator such as Space or any other character

 

[shiva_B]

thank you very much


▬▬▬▬▬▬▬▬▬ Mod edit : thread moved to appropriate forum !

​