For Each li In rdoJustification.Items
            If li.Selected = True Then
                Justification = li.Value
                F1FormTx.SaveJustification(F1No, Justification, Me.UserID, i)
                i = i + 1
            End If        Next