ToStringで２番目を省略した場合、コンパネの設定に従うので
Sunを必ず出したいのならCultureInfoを指定する必要があります。

 Dim Date1da As String = Date.Today.AddDays(1).ToString("yyyy\/M\/dd .ddd", CultureInfo.GetCultureInfo("EN"))

など。『/』の前の『\』は区切り文字もコンパネの設定で変わるので固定するために付加
しました。