Spanish (SOLUCIONADO) Fallo de .tag en evento de Label

An error has occurred in sub:main$ResumableSub_Edit oDat_Clickresume (java line: 835)
java.lang.NumberFormatException:empty String

    '   nIndMax es el número de items en ListDat

    Dim i As Int
    For i = 0 To nIndMax-1
        Dim iv As Label
        iv.Initialize("EditoDato")
        If i Mod 2= 0 Then
            iv.Color=0xFFE290D0
        Else
            iv.Color=0xFF7EF4E1
        End If
        iv.Text=ListDat.Get(i) 
        iv.TextSize=16
        iv.TextColor=0xFF120202
        iv.tag = i
        ScrollView1.Panel.AddView(iv, 15dip, 20dip * i, ScrollView1.Width - 35dip, 20dip )
    Next


Sub EditoDato_Click
    Dim IndiceLabelPulsado As Int
      Dim b As Label
    Dim cDato As String
      b = Sender
    IndiceLabelPulsado  = b.tag
    Log(b.text)

    cDato=ListDat.Get(IndiceLabelPulsado)

    Dim sf As Object = Msgbox2Async("¿Qué desea hacer?", "Con " & cDato, "Modificar", "Añadir", "Borrar", Null, True)
    Wait For (sf) Msgbox_Result (Result As Int)

    If Result=-1 Then
'        A modificar la línea
    Else If Result=-2 Then
'        A borrar la línea
    Else If Result=-3 Then
'        A incrustar nueva línea
    End If
End Sub

Dim i As Int

Sub Process_Globals
Dim IndiceLabelPulsado As Int
'...............
'................
'................

Sub Globals
Dim cDato as List
'...............
'................
'................

Sub Activity_Create(FirstTime As Boolean)

If FirstTime then
  cDato.Initialize ' Puedes inicializar aqui o mejor en el sub donde llamas a leer el fichero
  LeerFicheroDeDatos
End If
'...............
'................
'................


Sub EditoDato_Click
    Dim b As Label
    Dim TextoLabel As String
     b = Sender

    IndiceLabelPulsado  = b.tag ' para saber que linea del List tienes que modificar
    TextoLabel= b.text ' asignar el texto de la etiqueta
    Log(TextoLabel.text)

    Dim sf As Int
sf = Msgbox2Async("¿Qué desea hacer?", "Con " & TextoLabel, "Modificar", "Añadir", "Borrar", Null, True)

    If sf=-1 Then
'        A modificar la línea
    Else If Result=-2 Then
'        A borrar la línea
    Else If Result=-3 Then
'        A incrustar nueva línea
    End If
End Sub

' Te recuerdo que quizás para mas claridad del código (quizas no en este caso), existe esto:
  if sf = DialogResponse.POSITIVE
  if sf = DialogResponse.CANCEL
  if sf = DialogResponse.NEGATIVE
 ' Así no te tienes que aprender los valores

El problema es que no asignas bien los datos a cDatos, y te da error por que estas empleando una lista (List) sin declarar ni inicializar.