Manipulating Strings in VB

**hvincent** · 11-24-2014, 01:27 PM

Hello All,

I am a new user to Visual Basic so I'm afraid this is a fairly primitive question. I am trying to create a function that will give a number whose digits go from 1 to specified value, 11 should give 1234567891011. I made the code below:

Function LONGNUM(x As Integer) As String
Dim i As Integer, text As String, Answer As Long
For i = 1 To x
text = text & CStr(i)
Next i
Answer = CLng(text)
LONGNUM = reversedText
End Function

All integer inputs produce absolutely nothing. What am I doing wrong? Thanks for all the help in advance.

**TMS** · 11-24-2014, 01:34 PM

Hello and welcome to the forum

Please take a few moments to read the forum rules (see below, in particular)

Option Explicit

Function LONGNUM(x As Integer) As String
Dim i As Integer, sText As String, Answer As Long
For i = 1 To x
sText = sText & CStr(i)
Next i
LONGNUM = sText
End Function

Sub sTest_LONGNUM()

Debug.Print LONGNUM(11)
Debug.Print LONGNUM(12)
Debug.Print LONGNUM(13)
Debug.Print LONGNUM(14)

End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

**Debraj Roy** · 11-24-2014, 01:36 PM

Try this..

Function LONGNUM(x As Integer) As Double
Dim i As Integer, text As String, Answer As Long
For i = 1 To x
    text = text & CStr(i)
Next i
LONGNUM = CDbl(text)
End Function