i wan't kill returnCode

TryCatch.vb

Public Class TryCatch

    Public Function YesError() as hogeEnum
        Dim i as integer
        Dim returnCode as integer
        
        Dim MessageReturn as Integer = MessageBox.Show("キャンセル？","問い合わせ",MessageBoxButton.YesNo)
                
        If MessageReturn = DialogResult.No Then 
            Rerun hogeEnum.Cancel
            Exit Function
        End If

        Try
            i = "hoge"
            returnCode = hogeEnum.Done
        Catch ex as Exception
            returnCode = hogeEnum.Fail
        Finally
            'なんかの処理
        End Try

        return returnCode
    End Function        
End Class

Public Enum hogeEnum as integer
    Cancel
    Done
    Fail
End Enum