ConvertFeelings.ToCoding

Private Sub CalcBtn_Click()

Dim vPredicament As Feeling
Dim vBliss As Feeling
Dim vMelancholy As Feeling
Dim vHeart As Core = Soul

Call DefineContent()
Call DefineDiscontent()

vHeart = Val((vBliss*2) – vMelancholy) – vPredicament

CarrotLabel.Text = vHeart
End Sub
---------------------------------------------------------------
Sub DefineContent() As Feeling
vContentment = ContentTextBox.Text

If EmotionTextBox.Text = Uplifting Then

Select Case vContentment
Case is = "Glad"
vBliss = 1
Case is = "Content"
vBliss = 2
Case is = "Euphoric"
vBliss = 3
Case Else
vBliss = String.Empty
End Select

End If
End Sub
---------------------------------------------------------------
Sub DefineDiscontent() As Feeling
vDiscontentment = DiscontentTextBox.Text

If vEmotionTextBoxText = Depressing Then

Select Case vDiscontentment
Case is = "Sad"
vMelancholy = 1
Case is = "Distressed"
vMelancholy = 2
Case is = "Forlorn"
vMelancholy = 3
Case Else
vMelancholy = String.Empty
End Select

End If
End Sub
---------------------------------------------------------------
End Class

'So.. In the end, i think.. Feelings according to calculation..

No matter what i do....