Get character from a string at a particular position?

[megaxoom]

Hello

How do I get a character from a string at a particular position? For example: I have a string declared as follow

Dim str As String

and assume the str = "this is a string"

if I want to know a character at position 4, how do I do it besides using the Mid function.

Thanks inadvance for any help.

 

[Mat]

Is there any reasons why you don't want to use the Mid function?

anyways, here's another way...

Dim sTxt as String
sTxt = "12345"
MsgBox Replace(Left(sTxt, 4), Left(sTxt, 4 - 1), "")

 

[Nimrod]

Public Sub StringDemo()
Dim MyStr As String
MyStr = "this is a string"
MsgBox ("The fourth letter is > " & Right(Left(MyStr, 4), 1))
End Sub

 

[megaxoom]

I think using these functions (Mid, Left , Right) are a little bit slow. Is there a way to retrieve it very fast? In C language, to get a character from a string, just use the bracket and the position of the string that wanted to be retrieved.
For example, If I want to retrieve the fourth character from a string str (assumming str="this is a test"), all I have to do is to declare like this, str[4], and I get the character at that position.

 

[Nimrod]

Hello Mega

Hmmmm .... I ran the following procedure that uses the "Mid" function exactly 1million times. It was able to perform the million Mid functions in 1 second. I'm not sure what kind of code your attempting to write but I'm doubtful that this type of time limitation is that big of a concern

Public Sub TimeMidFunction()
Dim t As Date
t = Now()

For x = 1 To 1000000
MyStr = Mid("this is a string", 4, 1)
Next x

MsgBox Format(Now() - t, "hh:mm:ss")
End Sub