راهنمایی در خصوص گرفتن و ذخیره نام بازیکن بعد از لودینگ

[m4soud 6]

با سلام من میخواستم  نام بازیکن رو بگیرم در اکتیویتی اولم (یا همون اسپلش) و در حافظه ذخیره کنم که بعدا بشه به اون خوش امد گفت داخل بازی ولی هر کاری کردم نشد! اگه زحمتی نیست یکی این چند خط رو بخونه ببینه مشکلم کجاست، اسم ذخیره نمیشه و در همون قسمت گیر می کنه اکتیویتی

اینم چند خطی که نوشتم ممنون می شم راهنمایی کنید. 

nameok = label (نام نهایی بعد از کلیک done) 

name= edittext (نامی که باید تایپ کرد)

don = button ( دکمه ای که نام رو از edittext میگیره و روی label می ذاره)

t1 = هر چند ثانیه ای که به لودینگ یکی اضاف می شود

m1= موزیک

همه این نوشته ها داخل t1 ساب هستش

If ( Loading.Progress < 100 ) Then
        shomare = shomare + 1
        Loading.Progress = shomare
    
        
        Else 
            T1.Enabled=False
            m1.Stop
            
                If (File.Exists(File.DirRootExternal,"player") = False) Then
                        name.Visible=True
                        done.Visible=True
                        nameok.Visible=True
                
                                If  (nameok.Text <> "") Then
                                    File.WriteString(File.DirRootExternal,"player",nameok.Text)
                                Else
                                    Msgbox("لطفا نام خود را بنویسید" , "نام بازیکن")        
                                        If  (nameok.Text<>"") Then
                                        File.WriteString(File.DirRootExternal,"player",nameok.Text)    
                                        Else
                                            Msgbox("لطفا نام خود را بنویسید" , "نام بازیکن")
                                         End If
                                End If
                    Else
                        StartActivity(L2)    
                        End If    
        End If