Reputed number problem switch case statement

hai This is my code

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



Dim i As String
i = TextBox1.Text
Dim x As Object
For Each x In i

Dim num As Integer
num = x.ToString()
Select Case num
Case 1
str1 = "R"
Case 2
str2 = "A"
Case 3
str3 = "V"
Case 4
str4 = "I"
Case 5
str5 = "N"
Case 6
str6 = "D"
Case 7
str7 = "R"
Case 8
str8 = "A"
Case 9
str9 = "N"
Case 0
str0 = "M"
case else
str11="O"

End Select


Next

Dim temp1, temp2 As String
temp1 = TextBox3.Text
temp2 = TextBox4.Text
TextBox2.Text = String.Concat(temp1, temp2, str1, str2, str3, str4, str5, str6, str7, str8, str9, str0,str11)


End Sub







i will enter 144 output RI it show me Last number leave it

my requirement is i will enter this kind of number check
last nearest number repeat at that time else case work
show string 'O' output like as RIO
send some idea about....

i need help from u all
by
srm.....

I think this is what you want:

To : Respected sir

Thank you very much sir for your quick and very useful reply. Finaly i have done my one problem.


This same solution if i will enter repeated number like as 222
first 2 i want display "A" if next strings come same 2's goto else part "o"

how i will to this some idea .......to me

Once again thank you