Problema com select case

[Manhunt]

Boas galera!

É assim, eu estou com um problema e necessitava de o resolver, mas não consigo...

Estou aprendendo a programar nessa linguagem.

Eu estou a criar uma aplicação em que tenho 3 textboxes e em cada uma delas irei escrever um número.

No fim, eu queria que ao clicar num botão, este me desse uma messagebox a indicar quem fqual é a textbox com o valor mais elevado e mostrava o respectivo conteúdo do objecto , só que eu não estou consiguindo fazer isso.

Já tentei de imensas maneiras mas não consigo sair dessa...

Deixo aqui o código em que estou trabalhando,

Private Sub Btfinal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btfinal.Click

Dim a, b, c As String

Dim vencedor As Integer

a = Val(Tba.Text) > (Tbb.Text) > (Tbc.Text) > (Tbd.Text)

b = Val(Tbb.Text) > (Tba.Text) > (Tbc.Text) > (Tbd.Text)

c = Val(Tbc.Text) > (Tba.Text) > (Tbb.Text) > (Tbd.Text)

Select vencedor

Case a = True And b = False And c = False And d = False

MessageBox.Show("Ganhou o 1º grupo " & Val(Tba.Text))

Case b = True And a = False And c = False and d = False

MessageBox.Show("Ganhou o 2º grupo " & Val(Tbb.Text))

Case c = True And a = False And b = False and d = False

MessageBox.Show("Ganhou o 3º grupo " & Val(Tbc.Text))

End Select

End Sub

Por favor galera me ajuda.

Grato pela vossa atenção.

Editado Setembro 5, 2012 por Manhunt