Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim strIn As String
strIn = "D99A"
strIn = Replace(strIn, "99", "099", 1)
Dim strIn As String
strIn = "D99A"
strIn = Left(strIn, 1) & "0" & _
Right(strIn, Len(strIn) - 1)
Function InsertAt(strIn As String, _
strInsert As String, _
j As Long) As String
InsertAt = Left(strIn, j - 1) & strInsert & _
Right(strIn, Len(strIn) - (j - 1))
End Function
Sub testMe()
Dim StartString As String
Dim InsertedString As String
Dim Position As Long
StartString = "D99A"
InsertedString = InputBox("Enter the string to insert.")
Position = InputBox("Enter the position - from the left - " & _
"for the inserted string.")
MsgBox InsertAt(StartString, InsertedString, Position)
End Sub
I have a string similar to "D99A". I would like to convert that string to "D099A"